

4051 Graphic System is the center of attention as it computes frequency response curves for AR brand speakers. Pictured is FRED'S 
SOUND OF MUSIC display at recent “Stereo Show and Tell" in Portland, Oregon. 



4051 Computes Best Speaker Placement 
in Traveling Stereo Roadshow 

by Gary P. Laroff 

"My room is 16 ft. x 12 ft. x 8 ft. high with walls made of you where you should really sit in your listening area. The 

marshmallow. Where do I put my speakers? Where AR 4051 is programmed to provide tweeter polar 

should I sit? How much power will I need?..." dispersion curves by simply supplying it with high 

frequency driver diameters. The 4051 does all of the 
These and other questions are being answered at the mathematics in a matter of seconds and plots the curves 

TELEDYNE ACOUSTIC RESEARCH (AR) "Science while the customer watches. Hard copies of the screen 

and Sound" show traveling throughout the United States 
and Europe. And the answers are generated by Tektronix 
4051 Graphic Systems with Tektronix 4631 Hard Copy 
Units attached. 

Laboratory Comes to the Retail Floor 

Calculations and data that formerly took weeks to work 
out can be drawn from the internal magnetic tape and 
memory almost instantly. AR’s 4051 can then provide 
data on ideal listening locations from room dimensions 
and speaker placement supplied by the customer. It shows 






"Just describe your room and I'll show you the best position for 
listening to any speaker," says Fred Lindemann of FRED’S 
SOUND OF MUSIC, Portland, Oregon. 



" Programs developed in our large in-house scientific computer 
have been transferred to the 4051" states AR's Steve Johnson, 
traveling companion of the 405 1. 



graphics are given to the customer seconds later. Perfor- 
mance data of various AR speaker models and their use in 
specific installations can be shown on the 4051 screen. 

The ACOUSTIC RESEARCH Traveling Roadshow, 
comprised of a "stack" of AR’s new speaker models, a 
4051 and a 4631 Hard Copy Unit are drawing crowds 
wherever they go. Fred Lindemann, of FRED’S SOUND 
OF MUSIC in Portland, Oregon, is very enthusiastic 
about the response to his 4051 at the recent "Stereo Show 
and Tell" in Portland. Using the 4051, Fred answers 
questions about dispersion, power handling, listening 
locations, speaker placement and how speakers work. 

A number of programs are demonstrated on the 4051. 
Some were developed on AR’s large in-house scientific 
computer and were transferred to the 4051. Others were 
written especially for the 4051. Robert Berkovitz, 
Research Director at AR and author of the programs, is a 
very enthusiastic supporter of the 4051 as a personal 
computer and relies heavily on interactive graphics to 
describe acoustic phenomena. 



TEKniques, the 4051 Applications Library Newsletter, is 
published by the Information Display Group of Tektronix, Inc., 
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Hard copies of typical 4051 output are shown in the 
accompanying figures. The programs are not presently 
available and are proprietary to ACOUSTIC 
RESEARCH of Norwood, Massachusetts. 



TEKniques readers who would like to see the 4051 and 
AR’s Roadshow and Consumer Computer Clinics are 
encouraged to watch newspapers, magazines and televi- 




Fig. 1. Frequency response for a 19mm diameter tweeter at a 
frequency of 15,000 Hz. 



These are the nornal nodes of tour roan at bass frequencies. 
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Fig . 2. Frequency response of the listener's room at 15 bass 
frequencies. The 405 1 lists a frequency and then plots the 
normal modes for that frequency. 



Copyright >© 1978, Tektronix, Inc. 
All rights reserved 
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Fig. 3. How speakers work. A graphic example of one of the 
preliminaries: sound wave formation. 




Fig. 5. Ideal stereo listening area diagram for the customers 
room and speaker placement. The 4051 is programmed for 
rooms made of plaster, brick, sheetrock, wood, marshmallow 
and other exotic materials. 




Fig. 4. Customer's room shape diagram drawn moments after 
the customer has supplied the data. 



Fig. 6. Typical text on ampiifier power requirements. 



^Editor’s Note 

New Astronomy and Physics Demo 
Program 

Dr. R. J. Reimann of Boise State University in Idaho has 
contributed a second edition of "Graphics Demonstra- 
tions for Astronomy and Physics" to the Applications 
Library. This second version includes a new program, 
"Ellipse.". Dr. Reimann states also that numerous im- 
provements have been made in many of the old programs 
and that the order of presentation has been changed to a 
more natural sequence. The updated version allows 
.optional use of the Tektronix 4662 Plotter. Further 
details are contained in Abstract Number 5 1 / 00-540 1 1. 

Contest Update 

The deadline for entries to the computer-aided design 
contest was extended to April 15, 1978, to allow time for 
more of you to complete and enter your programs. 
Judging of the entries will be completed by June 1, 1978; 
results will be published in the next issue of TEKniques 
(Vol. 2 No. 5). 



Catalog Reminder 

The Applications Library wishes to remind you that there 
is currently available, for the asking, a catalog of the 
programs available through the library. Catalogs can be 
obtained by dropping a line to the 4051 Applications 
Library, Tektronix, Inc., Group 451, P.O. Box 500, 
Beaverton, OR 97077. Or you can make a quick phone 
call to the library at (503) 682-3411, extension 2618. 

Copyrights 

There is always the temptation to duplicate favorite 
graphics (cartoons, drawings, etc.) when you have access 
to an easy-to-use Graphic System like the 4051. Please 
check for copyright* any programs that duplicate 
graphics or data from published sources before submit- 
ting them to the Applications Library. If the drawing or 
data is copyrighted, there must be a copyright release 
from the copyright holder before the program can be 
included in the Library or this newsletter. Copyright 
release for such applications can usually be obtained by 
sending a brief letter of explanation and request to the 
copyright holder, h'drt. 

M copyright statement will he on the title page at the front of a hook, within the masthead in a 
periodical or indicated hv the copyright mark and year, i.e.. ® 1978 on the face of the graphics. 
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New Interface Allows 4051 Data Communications 
with IBM Computers 




4051 C0 1 SYNCHRONOUS 
COMMUNICATIONS INTER- 
FACE provides 4051 users ac- 
cess to data bases stored on 
IBM computers. 






f 






by Gary P. Laroff 

The new Tektronix 4051C01 SYNCHRONOUS 
COMMUNICATIONS INTERFACE is an 
interface/ peripheral for the 4051 which provides 4051 
users access to data bases stored on IBM computers. In 
general, the 4051C01 supports IBM 2780 (BSC or 
BISYNC) communications protocol and acts as an 
intelligent interface buffering the data in both directions 
and controlling the line protocol independent of 
programs running on the 4051. Data communication is 
initiated from either the keyboard of. the 4051, or by 
running BASIC language subprograms on the 4051. 

Data communication between a "host computer" and the 
4051 can now be performed in either asynchronous or 
synchronous modes. Asynchronous communication is 
more interactive and is handled by the 4051 Option 1 
Data Communications Interface. Synchronous com- 
munication is handled by 4051C01. Transferring data 
asynchronously is most successful when the amount of 
information communicated over a phone line is "small" or 
when a direct line connection is provided to the host 
computer. Sending data without any means of error 
checking and recovery can be difficult when there is noise 
on the line or when an accidental disconnect occurs. In 
such cases the 4051 may continue to listen to a dis- 
connected line, or a complete data transfer may be 
aborted and have to be restarted. 

Where large amounts of data or program must be 
transferred to or from the computer, a means of providing 
for transmission error detection and recovery is required. 
This is the world ofthe synchronous batch terminal. Also, 
communication will be more economical if a higher data 
transfer rate is available. For the 4051, error 



checking/ recovery and higher speeds (up to 9600 baud) 
are achieved with the 4051 CO 1 Synchronous Com- 
munications Interface. 



Interface Operation 




The 4051 CO 1 provides the 4051 user with the capability to 
communicate with IBM computer systems. IBM 
BINARY SYNCHRONOUS 2780 Remote Job Entry 
protocol is firmware implemented in this micro- 
processor-based intelligent interface. High speed (up to 
9600 baud), error free communication, and standard 
system device definition are the major benefits provided. 
Connections to the IBM system may be either direct or 
with synchronous modems to an IBM ICA or 270X- 
/370X. 4051C01 is connected through a 4051 ROM 
backpack slot. An RS-232 connector and a 10 ft. cable are 
used to connect the 405 1 CO 1 interface to a modem or 
directly to a computer’s communications port. 



Control of and response to the 2780 line protocol, I O 
buffering, and error detection and correction are per- 
formed by the interface microcomputer system. Thus the 
4051 CO 1 interface and 4051 may operate independently. 



Programming the 4051 C01 



A major feature is that only one command is required to 
allow GPIB devices, such as the Tektronix 4924 Digital 
Cartridge Tape Unit, to send a file of data or programs via 
the 4051 CO 1 to the host computer. Similarly, the host 
computer can dump a program or data in batch fashion to 
the Tektronix 4641 line printer or 4924 tape via the 
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405 1 CO 1 . Because the 4051 is merely part of a data path, 
the transmitted data or programs take up none of the 405 1 
read/ write memory. 

Record and file I/O are performed through the use of 
BASIC subroutines residing in the ROM pack and the 
interface operating system. 

Magnetic tape files may be transferred to or from the host 
computer system by positioning the tape and using one 
BASIC statement. 

Using the internal drive 

CALL "C01MTR" or CALL "C01MTW" 

Using a 4924 assigned device number 3 
CALL "C01 OUT", 3 or CALL "C01INP", 3 

Files from the host computer may be sent to the 
lineprinter, screen or any 4051 device number. 

To the 4641 lineprinter left backpack slot 
CALL "C01 INP'\ 41 

To the 4051 display 
CALL "C01 INP", 32 

The 4051 CO 1 may be addressed through the use of 
PRINT and INPUT statements and device numbers 49 or 
59 depending upon which 405 1 backpack slot contains the 
interface ROM pack. 

AS is a string variable containing the desired record 

To read a record 
INPUT @49: AS 

To transmit a record 
PRINT @49: A$ 

The status of the interface can also be examined by the 
programmer. 




Dashed Line Algorithm Update 

by Syed M. Hasan 
Troy, Michigan 

Regarding the enhanced version of the Dashed Line 
Algorithm suggested by Ken Cramer in TEKniques Vol. 2 



Five utility subroutines are provided for parameter 
initialization, interface status, and troubleshooting. 



C01INIT 


establishes default parameters and allows 
definition of nine communications 
parameters 


C01PRLIST 


lists communications parameters currently in 
effect 


C01STAT 


returns status parameters as variables 


C01DIAG 


initiates a complete test of the interface 
system and returns diagnositc indicators 


C01TEST 


initiates the self-test, also routinely 
performed at power up of the system 


New 4051 System Capabilities 

In addition to higher data transfer rates and error 
recovery, 405 1 CO 1 allows access to host computers which 



do not support asynchronous terminals. Batch data and 
program transfers are now possible between remote 405 1 
systems. 

Although the 4051 with the new 4051 CO 1 interface is not a 
direct substitute for an expensive high-powered Remote 
Job Entry' (RJE) system such as an IBM 2780, the 
4051 ' 405 1 CO 1 is a powerful hardware configuration. By 
adding a Tektronix 4641 Matrix Printer, 4924 Digital 
Cartridge Tape Unit, or GPIB paper tape reader/ punch 
such as the FACIT models 4070/4021 (discussed in 
TEKniques Vol. 1 No. 7) the 4051 becomes the center of a 
distributed processing batch-oriented terminal/ personal 
computing system. 

For more information on the new 4051C01 Synchronous 
Communications Interface, contact your local Tektronix 
Sales Engineer, 



No. 1, page 9: Problems can be encountered when 
drawing a vertical line downwards. The program can 
iterate indefinitely in the FOR/ NEXT loop in lines 1210 
to 1230. In the case of the downward vertical line, XI is 
equal to X2, and statement 1200 reduces to this: 

1208 F0* 1-0 TO 0 STEP 0 

This is an infinite iteration. The probelm can be overcome 
by using the following technique: 

1193 H-2t(ABS(Ul >HAX ABS<U2>) 

1200 FOR 1-0 TO ABS<X2-X1-UU2> WAX ABS<Y2-Yl-U2t2> STEP H 
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3-D Line Clipping 

by Jay Beck 

When drawing three-dimensional objects on the 405 1 , it is 
necessary to perform your own line clipping to remove 
line segments that are outside the field of view defined by 



a 3-D window. This article describes a simple but very 
capable 3-D line clipping algorithm. 



INT "Enter WINDOW boundary values, 



INPUT W0,W1 ,W2,W 3 , E 



W7=(WR-m 2>/2 
i W5=l W1-W03/2 



3 OCSUB 11550 

) REM Center ' 

) WG=W0-W5 
) W1=Wl-Wb 
3 W2=W2-W7 
3 W3=W3-W7 
) W«:W4-E 
3 W5=W5-E 

) REM Define \ 

3 N(1 , 11=0 
) N (1 ,23=2 # W1*WU 
3 N ( 1 , 3)=-2 # Wl*W2 
3 N(2, 1)=-2*W3*W4 
3 N(2,23=0 
3 N (2 , 3) =2*W1 *W3 
3 NO, 13=0 
3 IK j,2)=-?«W1*W4 
3 N(3,33=2*W1*W3 
3 N(4, n=2»W3*W4 



-Define Window normals 



) N ( 6 , 2 ) = J 
) N (b , 3 3 =- 1 

) REM -Define i-th plane weight veoto 

3 FOR 1=1 TO 6 
) FOR J=1 TO 3 
3 Fl I , J 3=0 
3 NEXT J 
3 NEXT I 
) F<,5 , 33=W4 
3 Fib , 3 ' = W5 
3 RETURN 

3 REM - — 

l REM 1 Define VIEWPORT 







To understand the program (Fig. 1), you should be aware 
of the two coordinate systems the program employs. The 
first coordinate system is left-handed and is used to 
describe the object to be viewed. The clipping algorithm 
given is driven by a short program that uses a cube as a 
test object. Figure 2 shows the cube as defined in the 
program listing (lines 10090-10140). 

A left-handed coordinate results when the Z+ axis is 
extended into the screen. This was done for two reasons. 
First, the three-dimensional axes are a simple extension 
of the more familiar two-dimensional axes. And second, 
the 3-D clipping window specification is an extension of 
the same parameters used to specify the 2-D clipping 
window on the 4051. 



Y 




Fig. 2. 




Fig. 3. 



The 3-D clipping window is specified in the left-handed 
coordinate system of the cube. The field of view is shaped 
like a pyramid lying on its side. WH and WY, seen edge- 
on in Fig. 3, are the "near" (to E) and Tar" clipping planes. 
One can think of the 2-D window specification as 
describing a rectangle on the WH plane. The aspect ratio 
of the pyramid is controlled by the shape of the rectangle 
and the distance "E" is located from it. We assume that the 
X,Y location of E is always aligned with the center of the 
rectangle, thus to locate the eye point, only its Z 
coordinate is required. 



The second coordinate system is used to reduce the 
complexity of doing the clipping step. This coordinate 
system uses the eye point as the origin. The clipping 
boundaries are described to the program by specifying the 
normals (of the six planes) that face toward the pyramid’s 
interior, and by specification of a point lying on each of 
the six planes. By locating the eye point at the origin, the 
point (0,0,0) is common to four of the six planes and can 
be used to satisfy part of the pyramid specifications. 





Fig. 4. 
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The translation of the test object to the clipping axes is 
performed by a translation matrix. 1 




The clipping algorithm works in basically the following 
manner. Suppose we are given a 3-D line segment "L" that 
penetrates a clipping plane "P". The projections of a line 
segment, and a reference vector onto a normal to the 
plane form a proportion b/a. The reference vector is 
know'n to originate on the surface of the plane (because 
we defined it that way). 

The proportion b/a is always a value between 0 and 1 if 
the line segment intersects the plane. It may be <0, or 
>1, if an extension of the line segment intersects the 
plane, but these cases are rejected. The six clipping planes 
form a convex 3-space that can only be penetrated in two 
places by a straight line. 2 By determining the ratio b / a for 
all six planes a set of values is determined. If we order this 
set, the two middle values will determine the clipped line 
segment. 




Figures 6 and 7 resulted from running the program. The 
input parameters are defined below. 



Wl 


Window left 


(X mi „) 


VI 


Viewport left 


Wr 


right 


(X™) 


Vr 


right 


Wb 


bottom 


(Y„un) 


Vb 


bottom 


Wt 


top 


(Ym* x ) 


Vt 


top 


Wh 


hither 


(Znun) 






Wy 


yon 


(Znwu) 






E 


Eye 


(Z) 







(coordinates of object) (screen display units) 



Entvr MIHOOU boundary v«lu««. «n«| Ey« Point Distance. 
Ul.Ur.Ufc.Ut.Hh.My.E : -. 3, l . 3, - . 3, l . 3, 3, l . 3, -3. 3 

Enter UIEWfOGT boundary values 
Ut.Ur.Vto.yt : 3,84,3,84 






C 



Fig. 6. 



Enter UIHOOM boundary values, and Eye Point Distance. 
Ul.Wr.Wb.Mt.Mh.My.E : . 4 , i . 1 , . 4, 1 . I . -. 1 , 1 . 1 , -3. 3 

Enter VIEWPORT boundary values 
Ul,Ur,Ub*Ut : 3 , 88 . 3,84 





\ . __ 
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Fig. 7. 



( 



Program Note: 

The program uses screen level moves (Print @32,21) and 
draws (Print @32,20). Roundoff error can result in very 
small negative numbers (on the order of -.6E-13) instead 
of zero. When this occurs the line is not drawn properly. 
To avoid this potential problem, the coordinates used are 
forced to be greater than zero by use of the ABS( ) 
function. 

Describing Your Own Object 

Lines 10090-10140 contain an ordered set of coordinates 
for the ends and midpoints of each edge in the cube’s face. 
Each line (from 10160-10220) designates the coordinates 
to be used in drawing a closed line about the cube. The 
position in the X0, Y0, Z0 array in which the coordinate is 
stored is the value used on these lines. 

To describe your own object, list the object’s unique 
coordinates in a table. 
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Index 


X 


Y 


X 


1 


X, 


Y, 


z, 


2 


x 2 


y 2 


z 2 


3 


x 3 


y 3 


z 3 


4 


x 4 


y 4 


Z4 


etc. 









Then, in a data statement, write these coordinates in the 
following order: 

X, Y, Z, X 2 Y 2 Z 2 . . . 

Using one data statement per polygon, describe each 
polygon in the following manner: 

{Number of points) , ( index, ) (index, ), 
(index 3 ),... ( index n ) 

e.g. DATA 5, 1, 4, 7, 9, 1 



N 5 coordinates 
Change line 10060 to: 

max index P, max (n) + i 

\ , t / 

10060 DIM X0<24 )TY0(24) * ZS<24) i L0( » > 

Change Lines 10290 to 10330 to read: 

10299 READ P 
18292 FOR 1*1 TO P 
10294 READ L0<I, 1) 

18296 FOR J*2 TO N+l 
10298 READ 10<I, J> 

18308 NEXT J 
10302 NEXT I 

Also lines 10410 and 10440 should read: 

10418 FOR J*1 TO p 
i 

i 

i 

10448 FOR J*2 TO L0<I,1> 



Sea man. W. and Sproull. R.; Principles of Interactive Computer Graphics, Chapters 12-14. 
(McGrow Hill 1973). 

2 Beck. J. and Cyrus. M.; Computer Graphics: Two- and Three-Dimensional Clipping, AFHRL- 
TR-77-14, USAF Systems Command. 



Base Changing Routine 

by Henry E. Zeuli 

Massachusetts Institute of Technology 

The following routine can be easily included in any 
program that requires conversion from base 10 (decimal) 
to another base supplied by the operator. Lines 430 
through 550 operate on any decimal number in D 1 and a 
base, sixteenor under, entered in BL The number value in 
the new base is returned in R$. The routine operates on 
any positive decimal integer. 



388 PRINT 'DECIMAL INPUT, BASE OF 0UTPUTJ* 
398 tHPUT 01,01 
488 GOSU0 438 

418 PRINT USING *33TFALF0*:8I,B1 
428 GO TO 398 

438 REN DEC TO CONU SUB* 

440 D*«*81 23456 789A0CDEF * 

430 PS-" 

460 H*«" 

470 D2«IHTfDl/Bl) 

488 03-01-02*81 

490 H*-SEG<Df , D3+1 , 1) 

300 R*-HStR« 

510 IF 02-0 THEN 340 
520 D 1 -02 
330 GO TO 470 
340 DELETE D2,D3,D*,H* 

350 RETURN 



Tie Menu to Both Keyboard and 
User-Definable Keys 



Many 405 1 programs can be written so that the user may 
use either a screen menu, inputting the choice from the 
keyboard, or the User-Definable Keys. The following 
program layout is a suggestion of a standard use of line 
numbers and a way to tie the menu to the UDK’s so that 
both are equally easy to use. 

1 REN — Program title goes here 

2 SET 1CEY 

3 GO TO 108 

4 REN — Oescribe 1st subprogram harre 

3 C-l 

6 CCSUB 1888 

7 END 

8 REN — Describe 2nd subprogram here 

9 C-2 

10 GO SUB 2000 

11 END 



40 REN— UDK *10 — Use screen menu 

41 C-18 

42 GO TO 300 



88 REN — Describe 20th subprogram here 

81 C--0 

82 G0SUB 20000 

83 EHO 



100 REN — Menu Routine 

110 REN — Do all dimensioning here 

120 REN — Oo all data assignments here 

138 REN — The above should only have to be 

131 REN — executed once. After that the 

132 REN — user should use menu or UDK and 

133 REN— never have to type ‘RUN* 



388 REN — Screen Menu 
318 PRINT 'LTitle of PropranJ' 
328 PRINT * 1— Subprogram 1* 
338 PRINT ' 2 — Subprogram 2* 

I 



410 PRINT '10— Stop and Use DDKs' 



490 PRINT ‘ 1 9 — Subprogram 19' 

508 PRINT '28 — Subprogram 20' 

310 PRINT ' JYour Choice: 

320 INPUT C 

330 IF C-10 THEN 380 

340 GOSU0 C OF 1000,2000,3000,4000,5000,6000,7000,8000,9000,380 
350 GOSU8 C-10 OF 11800,12000,13000,14000,13000,16000,17000,18000,20000 
360 REN — Redisplay menu 
579 GO TO 300 

588 REN— Return 4031 to idle node 
590 ENO 



[000 REN — Subprogram *1 

[018 REN — Use submenus if necessary 



.XXX RETURN 



2088 REN— Subprogram 82 



2XXX RETURN 



0000 REN — Use this area for any extra routines. 
.0001 REN — This area is free since item 10 
,0002 REN — is used to flio-flop between the 
,0003 REN — screen menu and UDKs. 



20000 REN — Subprogram *20 



20XXX RETURN 



21000 REN — Multiply used utilities and other 
21801 REN — subprograms can start here 
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NOTES: 

1 ) Note that C is set both by the screen menu and UDK’s. 
This means that you use C as a flag in cases where one 
subprogram GOSUB’s to another. 

2) GOSUB’s must be used in the UDK definitions in 
order for proper return when the screen menu is used. 

3) If there aren’t enough lines for a particular sub- 
program, use a GOSUB to line numbers above 21000 
or use the 10000 area. Be sure to terminate the 
extension with a ''RETURN". 

4) By definition, the UDK starting line number is the 
UDK number times 4. The subprogram starting line 
number is the UDK number or C times 1000. 

5) By using UDK #10 (C=10) for flip-flopping between 
the screen menu and using the UDK’s, you can always 
get the screen menu by pushing UDK #10, even if you 
have lost the card overlay. 





Good programming practice includes keeping a backup 
of your program on a separate tape. And , as we often find 
out too late, using the MARk statement very carefully is 
also good programming practice . But if hindsight has 
outranked foresight, the following tip may be of help . 

Salvaging re-MARked Files 

by Hermand D’Hondt 
Tektronix Australia 

The following program usually works to salvage files 
which have been MARked over. However, it is not 
guaranteed. It seems to depend on the precise location of 
the "LAST" file in relation to the succeeding files. 

100 0H EOF (0) THEN 200 

110 PRINT *33,0:0,0,1 

120 REH Find the new "LAST" file 

130 FIND 3 

148 PRINT 033,0:0,0,0 
130 INPUT 033: A# 

160 PRINT A$ 

170 GO TO 150 
200 FIND 5 

210 REH Input, old or append lost file 
220 INPUT 033: A* 

230 PRINT At 
240 GO TO 220 

Another Method (A Last Resort) 

If the preceding program does not work, your local 
Tektronix Systems Analyst may be able to assist you. 



Variables for File Numbers 

Often a program uses multiple tape files. Using variables 
instead of constants as arguments of the FINd statement 
allows changing the sequence of files on a tape by 
recoding only one statement in a file. Example: 

100 IMIT 

118 REH Total number of files in program. 

120 DATA 4 

139 REH Number of each file. 

140 DATA 4, 3,6,7 
130 READ N 

160 DIM F<N> 

170 READ F 

180 REH Continue with main program. 

I 

I 

608 REM Call in subprogram file 
610 FIN F<2) 



4051 Applications Library 
Program Abstracts 

Documentation and program listings of these programs may be ordered 
for $15.00 each. Programs will be put on tape for an additional $2.00 
handling charge per program and a $26.00 charge for the tape cartridge. 
(The program material contained herein is supplied without warranty or 
representation of any kind. Tektronix, Inc. assumes no responsibility 
and shall have no liability, consequential or otherwise, of any kind 
arising from the use of this program material or any part thereof. ) 

Please use the Applications Library Order Form. Order forms are 
included in the Membership Packet and are available from your local 
Tektronix Sales Engineer. Orders outside of the U.S. must be ordered 
through the local Tektronix sales office. 

ABSTRACT NUMBER: 51/00-8016/0 
Title: Variable Size Screen Characters 

Author: K. S. Reid-Green 

Educational Testing Service 
Princeton, NJ 
Memory Requirement: 8K 
Peripherals: 4631 Hard Copy Unit Optional 
Statements: 53 

Use this subroutine to generate characters of variable size 
to be displayed on the 4051 screen. This technique is 
useful when displaying textual information which will 
subsequently be plotted in other than the standard 
character size. 

The subroutine converts all letters, numbers and the 
characters and " . " to strokes. 



Enter character size x,y: 3 8 
Enter output coordinates x,y: 2 73 
Enter character string: 4051 Library 

4B5I LIBRARY 
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ABSTRACT NUMBER: 51/00-8017/0 
Title: Paper Tape Labeler 

Author: G. L. Evans 

Herne Hill, London SE240DQ 
Memory Requirement: 8K Bytes 
Peripherals: Paper Tape Punch 
Statements: 93 

When the 4051 is used to drive a paper tape punch, this 
program allows a visual header to be punched in the 
beginning of a paper tape for easy identification. 

A leader of 50 nulls is first punched, and a header of 72 
characters maximum is entered into the 4051 via the 
keyboard. All of the usual editing facilities of the 4051 
may be used at this time. The header is then coded in a 
standard 5x7 matrix and punched, followed by a trailer 
of 50 nulls. 

An example of one type of system used in this mode is the 
punch on an ASR teletype connected to the 4051 via the 
IEEE bus (GPIB). The conversion between the IEEE 
standard and the teletype logic is done using a 
microprocessor programmed to allow' the teletype to be 
used in the commands SAVE @1; and PRINT @1: so 
that data can be sent after the header. 




ABSTRACT NUMBER: 51/00-5401/1 
Title: Graphics Demonstrations for Astronomy and 
Physics 

Author: Dr. R. J. Reimann 
Physics Department 
Boise State University 
Memory Requirement: 8K 
Peripherals: 4662 Plotter Optional 
Files: 12 
Statements: 807 

A second edition with an additional program and 
numerous improvements in the other programs. This is a 



program series, under the control of a directory, for the 
presentation of introductory astromony and physics 
concepts to students with no computer experience. The 
series includes: 

Ellipse— ellipses are drawn according to the user’s 
choice of eccentricity. Kepler’s first and second laws 
are illustrated. 

Planetary Motion— the inner planets are initially 
aligned and then "race" in circular orbits according 
to Kepler’s third law. 

Binary Stars— circular orbits for binary systems are 
plotted using Kepler’s third law. The user may select 
the masses and separation. 

Stellar Magnitudes— relative apparent magnitudes 
(0-6) are drawn for stars under the assumption that 
brightness is proportional to area. 

Phaser— a demonstration of the reference circle as 
related to simple harmonic motion. 

Sidereal Time— a view of the Northern sky with 
sidereal clock is drawn according to the user’s 
choice. 

Solar Time— a view of the Northern sky is drawn 
according to the user's choice of date and time of 
day. 

Satellite Orbit— earth satellite orbits are plotted 
using a 2-step iterative approximation of Newton’s 
law of universal gravitation. User selects radial and 
tangential velocities with an optional choice of 
initial separation. 

Trajectory— a 2-D trajectory is drawn using a 2-step 
iteration assuming drag is proportional to v 2 . The 
plot is automatically scaled and labelled. The user 
selects velocity components v x and v y with an 
optional choice of drag coefficient. 

Vector Combinations— addition of numerous 2-D 
vectors drawn head-to-tail. The plot is automatical- 
ly scaled and the resultant is expressed in both 
rectangular and polar coordinates. 

Linear Least-Squares Fit— user inputs number of 
data points and each x,y coordinate. The best fit to a 
straight line is calculated including standard errors. 

The plot is automatically scaled and "proper" "tic" 
marks are made on the axes. Hard copies are 
produced by pressing User Definable Key #3 if a 
4662 Plotter is connected. 
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ABSTRACT NUMBER: 51/00-9521/0 
Title: Spider Web Charts 

Author: Tom Price 

Lorillard Research 
Greensboro, NC 
Memory Requirement: 8K 
Periphals: 4631 Hard Copy Unit 
Statements: 74 

This program produces spider web profiles for any 
number of parameters. Such profiles are useful in the 
concise presentation of multiple properties related to an 
item on a single graph. Rapid comparisons between items 
are greatly facilitated. This type of presentation is widely 
used in the tobacco industry for the comparison of flavor 
properties between different brands. 




ABSTRACT NUMBER: 51/00-3101/0 
Title: Minimum Operating Cost for Two Aircraft 

Author: Florent van Vlasselaer 
Tektronix Belgium 
Memory Requirements: 8K 
Peripherals: 4952 Joystick 

4631 Hard Copy 
4662 Plotter (Optional) 

Statements: 180 

The program determines all possible mixes of two types of 
aircraft covering the same route for one week. The 
constraints are total passengers and cargo and, for each 
plane, capacity and upper and lower limits of capacity 
actually used. 

The output is a parallelogram on the X-Y axes; this 
output encloses the possible mixes. The operator can then 
use the joystick to select points for which the annual 
operating cost will be calculated. 



TWO PROGRAMS IN ONE 

Both the Slide Maker program (51 ,00-8009 0) and the 
Pie Chart Routine for 4662 (51 00-9512 0) have been 
incorporated into program 51 00-9513 0, PRESEN- 
TATION AIDS RELEASE 2. Any orders designating 
either of these first tw'o will be filled with Presentation 
Aids. 

The User Definable Keys allow' a choice of either the slide 
maker or pie chart function. 



Tektronix 

COMMITTED TO EXCELLENCE 



TEKTRONIX, INC. 
Information Display Group 
Applications Library 
Group 451 
P.O. Box 500 
Beaverton, Oregon 97005 
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